perm filename LOSS.OUT[NEW,LSP] blob sn#490243 filedate 1980-01-03 generic text, type T, neo UTF8

((LAMBDA (BL N S) 
	 (PROG NIL 
	       G0011(COND ((NULL BL) (RETURN (PRINT (LIST N S)))))
	       (PRINT (LIST N S))
	       (SETQ BL
		     (PROG2 NIL
			    (CDR BL)
			    (SETQ N
				  (PROG2 NIL
					 (COND ((EQUAL 'T (CAR BL))
						(1+ N))
					       (T N))
					 (SETQ S
					       (COND ((EQ 'T
							  (CAR BL))
						      (STORE (BR N)
							     (+ S 3))
						      0)
						     (T (+ S 3))))))))
	       (GO G0011)))
 LL
 0
 0)